onevent EVENT_DISPLAYROOMS

getceilzofslope camerasect camerax cameray tempvar
ifvarn camerasect -1 setvar cameradist 100000

addvar tempvar 512
subvar cameraz 4000
ifvarvarl cameraz tempvar setvarvar cameraz tempvar
 
endevent